home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_147_Rename.bin < prev    next >
Text File  |  1995-11-23  |  3KB  |  60 lines
  1. ItemType: WIND
  2. Rect: 219,302,500,462
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: FALSE
  6. HasZoomBox: FALSE
  7. Name: Rename
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬if objValue="Open" then ┬  wsSet wdID,"List","DoubleClickItem", "OK"┬  wsSet wdID,"4","Selection", "0,36"┬end if┬--end windowEvent
  9. Params: i6_Text┬i3_Text┬i0_TopLeft┬i4_Text
  10. Result: i3_SelectionText┬i4_Text
  11.  
  12. ItemType: PUSH
  13. Rect: 198,123,270,143
  14. Disabled: TRUE
  15. Name: OK
  16. DefaultItem: TRUE
  17. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"New name","text")┬put it into namer┬get wsGet(wdID,"Type","Text")┬put last word of it into typer┬delete last char of typer -- the colon┬if typer="Category" then┬  put "CatListA" into t1┬  put "CatListL" into t2┬end if┬if typer="Detail" then┬  put "itemListA" into t1┬  put "itemListL" into t2┬end if┬if typer="Report" then┬  put "ReportList" into t1┬  put "ReportList" into t2 -- superfluous┬end if┬if (namer=empty) then┬  beep┬  alertNote("You forgot to select a name to edit.")┬else ┬  if checkQuality(namer,25)="fail" then┬    alertNote("Incorrect entry╤either too long or contains improper characters.")┬    wsSet wdID,"New name","Text",""┬  else┬    put item 1 of checkIfThere(namer,t1) into checker1┬    put item 1 of checkIfThere(namer,t2) into checker2┬    if (checker1="found") or (checker2="found") then┬      beep┬      alertNote("The "&typer&" name ╥"&namer&"╙ is already used."&return&return&"Please enter another.")┬      wsSet wdID,"New name","Text",""┬    else┬      wsSend wdID,0,"Close"┬    end if┬  end if┬end if┬--end mouseUp┬
  18.  
  19. ItemType: PUSH
  20. Rect: 194,85,274,105
  21. Name: Cancel
  22. CancelItem: TRUE
  23. AutoClose: TRUE
  24.  
  25. ItemType: LIST
  26. Rect: 5,24,181,115
  27. TextFont: Geneva
  28. TextSize: 10
  29. AutoSize: FALSE
  30. Name: List
  31. Logic: Single
  32. DoubleClickItem: 1
  33. Text: one item┬second item┬third item
  34. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"List","TextOfSelection")┬wsSet wdID,"4","Text",it┬if it¡empty then┬  wsSet wdID,"OK","Disabled", "false"┬end if┬wsSet wdID,"4","Selection", "0,100" -- select it┬--end mouseUp
  35.  
  36. ItemType: TEXT
  37. Rect: 5,124,181,141
  38. TextFont: Geneva
  39. TextSize: 10
  40. Name: New name
  41. LockText: FALSE
  42.  
  43. ItemType: TEXT
  44. Rect: 3,144,186,156
  45. TextFont: Geneva
  46. TextSize: 9
  47. Name: instr
  48. Text: 25 letters or less, no ╥/╙, ╥(╙ or ╥,╙
  49.  
  50. ItemType: TEXT
  51. Rect: 4,2,38,18
  52. Name: Type
  53. Text: Type
  54.  
  55. ItemType: TEXT
  56. Rect: 193,8,281,73
  57. TextFont: Geneva
  58. TextSize: 10
  59. Name: instr1
  60. Text: Click on the item you want to rename, then edit it in the field below the list.